home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / nt4.0 server / DRVLIB.NIC / IBMENIIN / OEMSETUP.INF < prev   
INI File  |  1996-07-31  |  42KB  |  1,351 lines
  1. ;***********************************************************************    
  2. ;
  3. ; OEMSETUP.INF
  4. ;
  5. ;       LAN Adapter/A for Ethernet "LEGENDS" card and driver SETUP file
  6. ;       This file can be named OEMSETUP.INF or OEMSETNT.INF  
  7. ;       Card:    IBM Part# 48G7171   IBM FRU# 48G7172  
  8. ;       Driver:  IBMENIIN.SYS
  9. ;
  10. ; History:
  11. ;    IBM
  12. ;       Robert Huggins  28-Apr-1994     Adapted to IBM LEGENDS card
  13. ;
  14. ;***********************************************************************
  15.  
  16. ;-----------------------------------------------------------------------
  17. ; OPTION TYPE
  18. ; -----------
  19. ; This identifies the Option type we are dealing with.  The different
  20. ; possible types are:
  21. ;
  22. ; COMPUTER, DISPLAY, MOUSE, KEYBOARD, LAYOUT, SCSI, PRINTER, ...
  23. ;
  24. ;  Types specific to networking:
  25. ;
  26. ; NetAdapter,        a netcard / adapter combination or just a netcard
  27. ; NetDriver,         just a netcard driver
  28. ; NetTransport,      a complete NDIS-compliant TDI transport stack
  29. ; NetService,        an NT networking service
  30. ; NetWork,           a complete network ensemble.
  31. ; NetProvider        a complete network which supports NT MPR protocol
  32. ;-----------------------------------------------------------------------
  33.  
  34. [Identification]
  35.     OptionType = NetAdapter
  36.  
  37. ;-----------------------------------------------------------------------
  38. ; PlatformsSupported
  39. ; ------------------
  40. ; This identifies the platforms supported by the adapter card.
  41. ; Possible types are:
  42. ;
  43. ; ISA, EISA, MCA, various internal versions, etc.
  44. ;-----------------------------------------------------------------------
  45.  
  46. [PlatformsSupported]
  47.     MCA
  48.  
  49. ;-----------------------------------------------------------------------
  50. ; OPTION LIST
  51. ; -----------
  52. ; This section lists the OEM Option key names.  These keys are locale
  53. ; independent and used to represent the option in a locale independent
  54. ; manner.
  55. ;
  56. ;-----------------------------------------------------------------------
  57.  
  58. [Options]
  59.     IBMENIIN
  60.  
  61. ;***********************************************************************
  62. ; CONSTANTS FOR USING DIALOGS
  63. ;***********************************************************************
  64.  
  65. [FileConstants]
  66. ;
  67. ;  File names, etc.
  68. ;
  69. UtilityInf      = "UTILITY.INF"
  70. subroutineinf   = "SUBROUTN.INF"
  71. SoftwareType    = "driver"
  72. Exit_Code       = 0
  73.  
  74. ;
  75. ; EventLog Message File
  76. ;
  77. NetEventDLL     = "%SystemRoot%\System32\netevent.dll"
  78. IoLogMsgDLL     = "%SystemRoot%\System32\IoLogMsg.dll"
  79.  
  80. ;
  81. ; Product Info
  82. ;
  83. Manufacturer    = "IBM"
  84. ProductMajorVersion     = "3"
  85. ProductMinorVersion     = "1"
  86. ProductVersion  = $(ProductMajorVersion)"."$(ProductMinorVersion)
  87. ;
  88. ; Software
  89. ;
  90. ProductSoftwareName      = "IBMENIIN"
  91. ProductSoftwareImagePath = "\SystemRoot\System32\drivers\IBMENIIN.sys"
  92. NetRuleSoftwareType      = "IBMENIINSys ndisDriver IBMENIINDriver"
  93. NetRuleSoftwareUse       = $(SoftwareType)
  94. NetRuleSoftwareBindForm  = """IBMENIINSys"" yes no container"
  95. NetRuleSoftwareClass     = {"IBMENIINDriver basic"}
  96. NetRuleSoftwareBindable  = {"IBMENIINDriver IBMENIINAdapter non exclusive 100"}
  97.  
  98. ;
  99. ; Hardware
  100. ;
  101. ProductHardwareName      = "IBMENIIN"
  102. NetRuleHardwareType      = "IBMENIIN IBMENIINAdapter"
  103. NetRuleHardwareBindForm  = " yes yes container"
  104. NetRuleHardwareClass     = {"IBMENIINAdapter basic"}
  105.  
  106. ; 
  107. ; MCA Unique Hardware ID
  108. ;
  109. ; For Legends, POS Register 100 is the LSB of the card ID  224 = E0
  110. ; For Legends, POS Register 101 is the MSB of the card ID  255 = FF
  111. ; For Legends, the Hex value FFEO expressed in decimal is 65504               
  112. ;
  113. POS_LSB = 224
  114. POS_MSB = 255
  115. MCA_ID  = 65504       
  116. ;
  117. ; Registry Key
  118. ;
  119. ProductKeyName  = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSoftwareName)"\CurrentVersion"
  120. ParamKeyName    = $(!NTN_ServiceBase)"\"$(ProductHardwareName)"\Parameters"
  121.  
  122.  
  123.  
  124.  
  125. ;-----------------------------------------------------------------------
  126. ;
  127. ; Files 
  128. ;
  129. ;-----------------------------------------------------------------------
  130. [Source Media Descriptions]
  131.     1 = "Setup disk for IBM LAN Adapter/A for Ethernet" 
  132.  
  133. [Signature]
  134.     FileType = MICROSOFT_DRVLIB_FILE
  135. [GetSignature]
  136.     read-syms Signature
  137.     return $(FileType)
  138.  
  139. ;-----------------------------------------------------------------------
  140. ;
  141. ; Product Type 
  142. ;
  143. ;-----------------------------------------------------------------------
  144. [ProductType]
  145. STF_PRODUCT            = Winnt
  146. STF_PLATFORM           = I386
  147.  
  148.  
  149.  
  150. ;-----------------------------------------------------------------------
  151. ;
  152. ; Files-Inf 
  153. ;
  154. ; Note:  Size below controls gauge as file is being copied
  155. ;
  156. ;-----------------------------------------------------------------------
  157. [Files-INF]
  158. 1, OEMSETUP.INF , SIZE=40000, RENAME=$(!UG_Filename)
  159.  
  160.  
  161.  
  162. ;-----------------------------------------------------------------------
  163. ;
  164. ; Files-IBMENIIN 
  165. ;
  166. ;
  167. ; Note:  Size below controls gauge as file is being copied 
  168. ;         It might be related to the following error message:
  169. ; PreCondition Failure
  170. ; PreCondition Failed: File: D:\nt\private\windows\setup\src\gauge.c,Line:
  171. ; 242  
  172. ;
  173. ;-----------------------------------------------------------------------
  174. [Files-IBMENIIN]
  175. 1, IBMENIIN.SYS , SIZE=78848
  176.  
  177. [Files-HLP]
  178. 1, IBMENIIN.HLP, SIZE=999
  179.  
  180. ;-----------------------------------------------------------------------
  181. ;
  182. ; Languages Supported by this OEMSETUP.INF file  (known as STF_LANGUAGE)
  183. ;
  184. ;-----------------------------------------------------------------------
  185. [LanguagesSupported]
  186.     ENG
  187.  
  188.  
  189.  
  190. ;-----------------------------------------------------------------------
  191. ;
  192. ; Options Text for Language=ENG
  193. ;
  194. ;-----------------------------------------------------------------------
  195. [OptionsTextENG]                                                       
  196.     IBMENIIN = "IBM LAN Adapter/A for Ethernet (Part# 48G7171)" 
  197.  
  198.  
  199.  
  200. ;-----------------------------------------------------------------------
  201. ;
  202. ; File constants in the ENG language
  203. ;
  204. ;-----------------------------------------------------------------------
  205. [FileConstantsENG]
  206. ;
  207. ;  to override the default ""
  208. ;
  209. FunctionTitle = "IBM LAN Adapter/A for Ethernet (Part# 48G7171) Setup"
  210. ;
  211. ;  to override the default ""
  212. ;
  213. ProductSoftwareDescription = "NDIS 3.0 Ethernet driver"
  214. ;
  215. ;  to override the default ""
  216. ;
  217. ProductHardwareDescription = "IBM Part# 48G7171   FRU# 48G7172"
  218. ;
  219. ;  to override the default ""
  220. ;
  221. ProductSoftwareTitle = "IBM LAN Adapter/A for Ethernet driver"
  222. ;
  223. ;  to override the default ""
  224. ;
  225. ProductHardwareTitle = "IBM LAN Adapter/A for Ethernet (MCA)"
  226.  
  227.  
  228. CANNOT_FIND_ANY_CARD = "Network card is not present in the system."
  229. ShellCodeErrorTitle  = "Error: "$(FunctionTitle)
  230. ShellCodeErrorText   = "Shell Code Error."
  231.  
  232. ;-----------------------------------------------------------------------
  233. ;
  234. ; No override needed for Dialog Constants in English
  235. ;
  236. ;-----------------------------------------------------------------------
  237. [DialogConstantsENG]
  238. Help        = "&Help"
  239. Exit        = "Cancel"
  240. OK          = "OK"
  241. HelpContext = ""
  242. Continue    = "C&ontinue"
  243. Cancel      = "C&ancel" 
  244.  
  245. [FileDependentDlgENG]
  246. Edit1Label = "&Network Address:"
  247. Group1 = "Full Duplex Operation"
  248. Radio1 = "H&alf Duplex"
  249. Radio2 = "&Full Duplex"
  250. DlgType = "RadioCombination"
  251. DlgTemplate = "NETWORK_NUMBER"
  252. Caption = "Enter network address for adapter in slot "$(SlotNum)
  253. ComboListItemsIn = {}
  254. ComboListItemsOut = {}
  255. OptionsGreyed = {}
  256. HelpContext = 6666
  257. EditTextLim = 17
  258. EditTextIn  = $(NetworkAddress)
  259. EditFocus   = "ALL"
  260. RCCtlFocusOn = 403
  261.  
  262. ;-----------------------------------------------------------------------
  263. ;
  264. ; General Constants 
  265. ;
  266. ;-----------------------------------------------------------------------
  267. [GeneralConstants]
  268. ;
  269. ;  Program flow control variables.
  270. ;
  271. from      = ""
  272. to        = ""
  273. ;
  274. ;  Return codes; Exit_Code is set to one of these
  275. ;
  276. ExitCodeOk     = 0
  277. ExitCodeCancel = 1
  278. ExitCodeFatal  = 2
  279.  
  280. KeyNull         = ""
  281. MAXIMUM_ALLOWED   = 33554432
  282. RegistryErrorIndex = NO_ERROR
  283. KeyProduct      = ""
  284. KeyParameters   = ""
  285.  
  286. TRUE            = 1
  287. FALSE           = 0
  288. NoTitle         = 0
  289.  
  290. ExitState   = "Active"
  291. OldVersionExisted = $(FALSE)
  292.  
  293. DriverPath      = $(!STF_NTPATH)\drivers
  294.  
  295. [date]
  296.     ; Now is a list which contains { Sec from 1-1-1970, Year, Month, Day, Hour,
  297.     ; Minute, Second }
  298.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  299.  
  300.  
  301. ;---------------------------------------------------------------------------
  302. ; 1. Identify
  303. ;
  304. ; DESCRIPTION:   To verify that this INF deals with the same type of options
  305. ;                as we are choosing currently.
  306. ;
  307. ; INPUT:         None
  308. ;
  309. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL
  310. ;                $($R1): Option Type (COMPUTER ...)
  311. ;                $($R2): Diskette description
  312. ;---------------------------------------------------------------------------
  313.  
  314. [Identify]
  315.     set !Stf-DebugOutputControl = 1
  316.  
  317.     Debug-Output "Starting Identify"
  318.     ;
  319.     ;
  320.     read-syms Identification
  321.  
  322.     set Status     = STATUS_SUCCESSFUL
  323.     set Identifier = $(OptionType)
  324.     set Media      = #("Source Media Descriptions", 1, 1)
  325.  
  326.     Return $(Status) $(Identifier) $(Media)
  327.  
  328. ;------------------------------------------------------------------------
  329. ; 2. ReturnOptions:
  330. ;
  331. ; DESCRIPTION:   To return the option list supported by this INF and the
  332. ;                localised text list representing the options.
  333. ;
  334. ;
  335. ; INPUT:         $($0):  Language used. ( ENG | FRN | ... )
  336. ;
  337. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  338. ;                                STATUS_NOLANGUAGE
  339. ;                                STATUS_FAILED
  340. ;                                STATUS_NOTSUPPORTED
  341. ;
  342. ;                $($R1): Option List
  343. ;                $($R2): Option Text List
  344. ;------------------------------------------------------------------------
  345.  
  346. [ReturnOptions]
  347.  
  348.     Debug-Output "Starting ReturnOptions"
  349.  
  350.     
  351.     ;
  352.     ;
  353.     set Status        = STATUS_FAILED
  354.     set OptionList     = {}
  355.     set OptionTextList = {}
  356.  
  357.     ;
  358.     ; Check if the language requested is supported
  359.     ;
  360.     set LanguageList = ^(LanguagesSupported, 1)
  361.     Ifcontains(i) $($0) in $(LanguageList)
  362.         ;
  363.         ; Check if the platforms requested is supported
  364.         ;
  365.         ifstr(i) $($1) == ""
  366.            goto returnoptions
  367.         endif
  368.  
  369.         set PlatformList = ^(PlatformsSupported, 1)
  370.         Ifcontains(i) $($1) in $(PlatformList)
  371.            goto returnoptions
  372.         else
  373.            set Status = STATUS_NOTSUPPORTED
  374.            goto finish_ReturnOptions
  375.         endif
  376.     else
  377.        set Status = STATUS_NOLANGUAGE
  378.        goto finish_ReturnOptions
  379.     endif
  380.  
  381.     ;
  382.     ; form a list of all the options and another of the text representing
  383.     ;
  384.  
  385. returnoptions = +
  386.     set OptionList     = ^(Options, 1)
  387.     set OptionTextList = ^(OptionsText$($0), 1)
  388.     set Status         = STATUS_SUCCESSFUL
  389.  
  390. finish_ReturnOptions = +
  391.     Debug-Output "Status=         "$(Status)
  392.     Debug-Output "OptionList=     "$(OptionList)
  393.     Debug-Output "OptionTextList= "$(OptionTextList)
  394.  
  395.     Return $(Status) $(OptionList) $(OptionTextList)
  396.  
  397. ;------------------------------------------------------------------------
  398. ;
  399. ; InstallOption:
  400. ;
  401. ;      This section is shelled to by main installation processing
  402. ;      or by NCPASHEL.INF during reconfig, removal, update, etc.
  403. ;
  404. ;
  405. ; FUNCTION:  To copy files representing Options
  406. ;            To configure the installed option
  407. ;            To update the registry for the installed option
  408. ;
  409. ; INPUT:     $($0):  Language to use
  410. ;            $($1):  OptionID to install
  411. ;            $($2):  SourceDirectory
  412. ;            $($3):  AddCopy  (YES | NO)
  413. ;            $($4):  DoCopy   (YES | NO)
  414. ;            $($5):  DoConfig (YES | NO)
  415. ;
  416. ; OUTPUT:    $($R0): STATUS: STATUS_SUCCESSFUL |
  417. ;                            STATUS_NOLANGUAGE |
  418. ;                            STATUS_USERCANCEL |
  419. ;                            STATUS_FAILED
  420. ;
  421. ;------------------------------------------------------------------------
  422. [InstallOption]
  423.     Debug-Output "Starting InstallOptions"
  424.     Debug-Output "1= "$($1)
  425.     Debug-Output "2= "$($2)
  426.     Debug-Output "3= "$($3)
  427.     Debug-Output "4= "$($4)
  428.     Debug-Output "5= "$($5)
  429.     ;
  430.     ; Set default values for
  431.     ; extract parameters
  432.     ;
  433.     set Option   = $($1)
  434.     set SrcDir   = $($2)
  435.     set AddCopy  = $($3)
  436.     set DoCopy   = $($4)
  437.     set DoConfig = $($5)
  438.  
  439.     ;
  440.     ; Check if the language requested is supported
  441.     ;
  442.     set LanguageList = ^(LanguagesSupported, 1)
  443.     Ifcontains(i) $($0) NOT-IN $(LanguageList)
  444.         Return STATUS_NOLANGUAGE
  445.     endif
  446.  
  447.     set-subst LF = "\n"
  448.  
  449.     read-syms GeneralConstants
  450.  
  451.     read-syms FileConstants
  452.  
  453.     read-syms DialogConstants$(!STF_LANGUAGE)
  454.  
  455.     read-syms FileConstants$(!STF_LANGUAGE)
  456.  
  457.     detect date
  458.  
  459.     set-title  $(FunctionTitle)
  460.  
  461.     set to   = Begin
  462.     set from = Begin
  463. ;
  464. ;  Assume all is well.
  465. ;
  466.     set CommonStatus = STATUS_SUCCESSFUL
  467.  
  468.     EndWait
  469.  
  470. ;
  471. ;   Set up the operation-mode-based variables and gaily welcome
  472. ;   the user.  If the "install mode" variable is improperly set,
  473. ;   assume this is a new installation.
  474. ;
  475.  
  476. Begin = +
  477.     Ifstr(i) $(!NTN_InstallMode) == deinstall
  478.         set StartLabel = removeadapter
  479.     else-Ifstr(i) $(!NTN_InstallMode) == Update
  480.         set StartLabel = UpgradeSoftware
  481.     else-Ifstr(i) $(!NTN_InstallMode) == bind
  482.         set StartLabel = bindingadapter
  483.     else-Ifstr(i) $(!NTN_InstallMode) == configure
  484.         set CommonStatus = STATUS_REBOOT
  485.         Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  486.             ;
  487.             ;   You cannot config the software component
  488.             ;
  489.             Debug-Output "Cannot configure the IBMENIIN driver software."
  490.             Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  491.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  492.                 Debug-Output "ShellCode error: cannot get an error string."
  493.                 goto ShellCodeError
  494.             endif
  495.             set Error = $($R0)
  496.             set from = end
  497.             set to = end
  498.             goto nonfatalinfo
  499.         else
  500.             set StartLabel = configureadapter
  501.         endif
  502.     else
  503.         set StartLabel = installadapter
  504.         set OEM_ABANDON_OPTIONS = {}
  505.         set OEM_ABANDON_SOFTWARE = FALSE
  506.         set OEM_ABANDON_ON = TRUE
  507.     endif
  508.  
  509.     set from = $(fatal)
  510.     set to = $(fatal)
  511.     goto $(StartLabel)
  512.  
  513.  
  514.  
  515. ;-----------------------------------------------
  516. ; Installation Section
  517. ;-----------------------------------------------
  518.  
  519. installadapter = +
  520. ;
  521. ;   First, check whether the same version of the software exists
  522. ;
  523.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  524.  
  525.     Ifstr $(KeyProduct) != $(KeyNull)
  526.         ;
  527.         ; Same version already existed in the local machine
  528.         ; Popup the dialog and ask the user whether he wants to continue
  529.         ;
  530.         CloseRegKey $(KeyProduct)
  531.  
  532.         ifstr(i) !(NTN_RegBase) == $(ProductKeyName)
  533.            ;
  534.            ; Cannot Install the same software again
  535.            ;
  536.            Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
  537.                $(ProductVersion)
  538.            ifint $($ShellCode) != $(!SHELL_CODE_OK)
  539.                Debug-Output "ShellCode error: cannot get an error string."
  540.                goto ShellCodeError
  541.            endif
  542.  
  543.            goto end
  544.         else
  545.            ;
  546.            ; Add a new adapter card?
  547.            ;
  548.            Shell $(UtilityInf), CardExistedDlg
  549.  
  550.            ifint $($ShellCode) != $(!SHELL_CODE_OK)
  551.                Debug-Output "ShellCode error: cannot get an error string."
  552.                goto ShellCodeError
  553.            endif
  554.  
  555.            ifstr(i) $($R1) != "OK"
  556.                Set CommonStatus = STATUS_USERCANCEL
  557.                goto end
  558.            endif
  559.            set OldVersionExisted = $(TRUE)
  560.         endif
  561.     endif
  562.     goto nextstep
  563.  
  564.  
  565.  
  566. ;-----------------------------------------------
  567. ; Configuration Section
  568. ;-----------------------------------------------
  569. ;
  570. ;   Get the current values of all the parameters
  571. ;
  572. configureadapter = +
  573.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) NetCardKey
  574.     ifstr(i) $(NetCardKey) == ""
  575.         set CommonStatus = STATUS_USERCANCEL
  576.         goto successful
  577.     endif
  578.     GetRegValue $(NetCardKey) "ServiceName" ServiceInfo
  579.     set ServiceName = *($(ServiceInfo),4)
  580.     CloseRegKey $(NetCardKey)
  581.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"$(ServiceName)"\Parameters" $(MAXIMUM_ALLOWED) ParamKey
  582.     ifstr(i) $(ParamKey) != ""
  583.         GetRegValue $(ParamKey),"NetworkAddress", NetworkAddressInfo
  584.         set NetworkAddress = *($(NetworkAddressInfo), 4)
  585.         GetRegValue $(ParamKey),"SlotNumber", SlotNumberInfo
  586.         set SlotNum = *($(SlotNumberInfo), 4)
  587.          GetRegValue $(ParamKey),"FullDuplex", FullDuplexInfo
  588.          set FullDuplex = *($(FullDuplexInfo), 4)
  589.          Ifstr(i) $(FullDuplex) == "0"
  590.              set RadioIn = {1}
  591.          else
  592.              set RadioIn = {2}
  593.          endif
  594.         read-syms FileDependentDlg$(!STF_LANGUAGE)
  595.          SetHelpFile $(!STF_CWDDIR)ibmeniin.hlp 6666 6666
  596.          Debug-Output "HELP FILE"$(!STF_CWDDIR)ibmeniin.hlp
  597.         ui start "InputDlg"
  598.         ifstr(i) $(DLGEVENT) == "CONTINUE"
  599.             set NewNetworkAddress = *($(EditTextOut),1)
  600.             ifstr(i) $(NetworkAddress) == $(NewNetworkAddress)
  601.                 set CommonStatus = STATUS_USERCANCEL
  602.             else
  603.                 SetRegValue $(ParamKey) {NetworkAddress,$(NoTitle),$(!REG_VT_SZ),$(NewNetworkAddress)}
  604.             endif
  605.              set FullDuplexIndex =  *($(RadioOut),1)
  606.              Ifint $(FullDuplexIndex) == 2
  607.                  ifstr(i) $(FullDuplex) == "0" 
  608.                     set FDX = "1" 
  609.                     SetRegValue $(ParamKey) {FullDuplex,$(NoTitle),$(!REG_VT_DWORD),$(FDX)}
  610.                      set CommonStatus = STATUS_REBOOT
  611.                  endif
  612.              else 
  613.                  ifstr(i) $(FullDuplex) == "1" 
  614.                  set FDX = "0" 
  615.                      SetRegValue $(ParamKey) {FullDuplex,$(NoTitle),$(!REG_VT_DWORD),$(FDX)}
  616.                  set CommonStatus = STATUS_REBOOT
  617.                  endif
  618.              endif
  619.             ui pop 1
  620.         else
  621.             set CommonStatus = STATUS_USERCANCEL
  622.             ui pop 1
  623.         endif
  624.         CloseRegKey $(ParamKey)
  625.     endif
  626.     goto successful
  627.  
  628.  
  629. nextstep = +
  630.     StartWait
  631.  
  632. installproduct = +
  633.  
  634.     Shell $(UtilityInf), MCAFindBus, $(POS_LSB), $(POS_MSB)
  635.  
  636.     Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  637.         goto ShellCodeError
  638.     endif
  639.  
  640.  
  641.     ifstr(i) $($R0) != "NO_ERROR"
  642.         set Error = $($R0)
  643.         goto fatal
  644.     endif
  645.  
  646.  
  647.     ifstr(i) $($R1) == {}
  648.         set Error = $(CANNOT_FIND_ANY_CARD)
  649.         set CommonStatus = STATUS_USERCANCEL
  650.         set from = "end" 
  651.         goto nonfatal
  652.     endif
  653.  
  654.  
  655.     set AdapterList = $($R1)
  656.  
  657.     ;
  658.     ; Add Software Component
  659.     ;
  660.     ifint $(OldVersionExisted) == $(FALSE)
  661.         ifstr(i) $(!NTN_InstallMode) == "install"
  662.            Ifstr(i) $(DoCopy) == "YES"
  663.  
  664.               Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  665.  
  666.               Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  667.                   Goto ShellCodeError
  668.               Else-Ifstr(i) $($R0) == STATUS_FAILED
  669.                   Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  670.                   ifint $($ShellCode) != $(!SHELL_CODE_OK)
  671.                       goto ShellCodeError
  672.                   endif
  673.                   set Error = $($R0)
  674.                   Goto fatal
  675.               Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  676.                   Goto successful
  677.               Endif
  678.  
  679.               Set SrcDir = $($R1)
  680.  
  681.            Endif
  682.  
  683.            install "Install-Option"
  684.            ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  685.               Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  686.               ifint $($ShellCode) != $(!SHELL_CODE_OK)
  687.                   goto ShellCodeError
  688.               endif
  689.               set Error = $($R0)
  690.               goto fatal
  691.            endif
  692.         endif
  693.  
  694.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  695.             $(ProductSoftwareName), +
  696.             $(ProductSoftwareName), +
  697.             $(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
  698.             $(ProductSoftwareImagePath), "kernel", "NDIS", {}, "",+
  699.             $(NetEventDLL)
  700.  
  701.         Set OEM_ABANDON_SOFTWARE = TRUE
  702.  
  703.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  704.             Debug-Output "ShellCode error"
  705.             goto ShellCodeError
  706.         endif
  707.  
  708.         ;
  709.         ;   At this point:
  710.         ;     $R1 contains the product version key handle;
  711.         ;     $R2 contains the NetRules subkey handle;
  712.         ;     $R3 contains the new Services key handle; and
  713.         ;     $R4 contains the Parameters key
  714.         ;     $R5 contains the Linkage Key
  715.         ;
  716.         set RegistryErrorIndex = $($R0)
  717.  
  718.  
  719.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  720.             EndWait
  721.             Debug-Output "Registry error: add software components"
  722.             CloseRegKey $($R1)
  723.             CloseRegKey $($R2)
  724.             CloseRegKey $($R3)
  725.             CloseRegKey $($R4)
  726.             CloseRegKey $($R5)
  727.             goto fatalregistry
  728.         endif
  729.  
  730.         Set SoftProductKey    = $($R1)
  731.         Set SoftNetRuleKey    = $($R2)
  732.         Set SoftServiceKey    = $($R3)
  733.         Set SoftParameterKey  = $($R4)
  734.         Set SoftLinkageKey    = $($R5)
  735.  
  736.  
  737.         set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  738.                             {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  739.                             {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  740.                             {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
  741.                             {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
  742.                             {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
  743.                             {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  744.  
  745.         Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  746.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  747.             Debug-Output "ShellCode error."
  748.             goto ShellCodeError
  749.         endif
  750.  
  751.         set RegistryErrorIndex = $($R0)
  752.  
  753.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  754.             EndWait
  755.             Debug-Output "Registry error: add value list."
  756.             CloseRegKey $(SoftProductKey)
  757.             CloseRegKey $(SoftNetRuleKey)
  758.             CloseRegKey $(SoftServiceKey)
  759.             CloseRegKey $(SoftParameterKey)
  760.             CloseRegKey $(SoftLinkageKey)
  761.             goto fatalregistry
  762.         endif
  763.  
  764.         set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
  765.                             {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
  766.                             {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
  767.                             {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
  768.                             {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareBindable)}, +
  769.                             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  770.  
  771.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  772.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  773.             Debug-Output "ShellCode error."
  774.             goto ShellCodeError
  775.         endif
  776.  
  777.         set RegistryErrorIndex = $($R0)
  778.  
  779.         CloseRegKey $(SoftProductKey)
  780.         CloseRegKey $(SoftNetRuleKey)
  781.         CloseRegKey $(SoftServiceKey)
  782.         CloseRegKey $(SoftParameterKey)
  783.         CloseRegKey $(SoftLinkageKey)
  784.  
  785.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  786.             EndWait
  787.             Debug-Output "Registry error: add value list."
  788.             goto fatalregistry
  789.         endif
  790.     endif
  791.  
  792.  
  793. ;
  794. ;
  795. ;
  796. ;
  797.     ForListDo $(AdapterList)                                 
  798.         set BusNum = *($($),1)
  799.         set SlotNum = *($($),2)
  800.         Debug-Output "BusNum= "$(BusNum)
  801.         Debug-Output "SlotNum= "$(SlotNum)
  802.         Shell $(UtilityInf), IsNetCardAlreadyInstalled, $(BusNum), +
  803.             $(SlotNum), $(ProductHardwareDescription), $(ProductHardwareName) 
  804.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  805.             Debug-Output "IsNetCardAlreadyInstalled"
  806.             goto ShellCodeError
  807.         endif
  808.         ifstr $($R0) != "NO_ERROR"
  809.             set Error = $($R0) 
  810.             goto fatal
  811.         endif
  812.  
  813.         ifstr(i) $($R1) != "YES"
  814.  
  815. ;
  816. ;       Create the HARDWARE\Netcard region and its corresponding service
  817. ;
  818.  
  819.             Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
  820.  
  821.             ifint $($R4) != -1
  822.                 Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
  823.             endif
  824.  
  825.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  826.                 Debug-Output "Cannot add hardware component"
  827.                 goto ShellCodeError
  828.             endif
  829.  
  830.             set RegistryErrorIndex = $($R0)
  831.  
  832.             Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  833.                 EndWait
  834.                 Debug-Output "Registry error: add hardware component"
  835.                 CloseRegKey $($R1)
  836.                 CloseRegKey $($R2)
  837.                 CloseRegKey $($R3)
  838.                 goto fatalregistry
  839.             endif
  840.  
  841. ;
  842. ;           At this point:
  843. ;
  844. ;           $R1  Registry key variable for HARDWARE\Netcard\(n)
  845. ;           $R2  Registry key variable for HARDWARE\Netcard\(n)\\NetRules
  846. ;           $R3  Registry key handle for <service>\Parameters key
  847. ;           $R4  Adapter number assigned to adapter
  848. ;           $R5  Service name generated by combining svc name with adapter number
  849. ;
  850.             set HardNetCardKey    = $($R1)
  851.             set HardNetRuleKey    = $($R2)
  852.             set HardParameterKey  = $($R3)
  853.             set AdapterNumber     = $($R4)
  854.             set SlotTitle         = $(ProductHardwareTitle)$(SlotNum)   
  855.             set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  856.                                 {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(SlotTitle)},+
  857.                                 {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareDescription)},+
  858.                                 {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  859.                                 {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  860.                                 {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  861.  
  862.             Shell  $(UtilityInf), AddValueList, $(HardNetCardKey), $(NewValueList)
  863.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  864.                 Debug-Output "ShellCode error"
  865.                 goto ShellCodeError
  866.             endif
  867.                  set RadioIn = {1}
  868.                 read-syms FileDependentDlg$(!STF_LANGUAGE)
  869.                  SetHelpFile $(!STF_CWDDIR)ibmeniin.hlp 6666 6666
  870.                  Debug-Output "HELP FILE"$(!STF_CWDDIR)ibmeniin.hlp
  871.                 ui start "InputDlg"
  872.                 ifstr(i) $(DLGEVENT) == "CONTINUE"
  873.                     set NetworkAddress = *($(EditTextOut),1)
  874.                      set FullDuplexIndex = *($(RadioOut),1)
  875.                      Ifint $(FullDuplexIndex) == 2
  876.                         set FDX = "1" 
  877.                      else 
  878.                         set FDX = "0" 
  879.                      endif
  880.                     ui pop 1
  881.                 else
  882.                     set CommonStatus = STATUS_USERCANCEL
  883.                     ui pop 1
  884.                     Debug-Output "Action: unknown. Bye."
  885.                     goto end
  886.                 endif
  887.                 Shell $(UtilityInf), GetBusTypeNum
  888.                 set BusTypeNum = $($R1)
  889.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  890.                     Debug-Output "ShellCode error."
  891.                     goto ShellCodeError
  892.                 endif
  893.  
  894. ;
  895. ;           Add the rest of the parameters to the Services area
  896. ;      
  897.             Set NewValueList = {{BusNumber,$(NoTitle),$(!REG_VT_DWORD),$(BusNum)},+
  898.                                 {BusType,$(NoTitle),$(!REG_VT_DWORD),3},+
  899.                                 {McaPosId,$(NoTitle),$(!REG_VT_DWORD),$(MCA_ID)},+
  900.                                 {MediaType,$(NoTitle),$(!REG_VT_DWORD),1},+
  901.                                 {NetworkAddress,$(NoTitle),$(!REG_VT_SZ),$(NetworkAddress)},+
  902.                                 {SlotNumber,$(NoTitle),$(!REG_VT_DWORD),$(SlotNum)}}
  903.  
  904.             Shell  $(UtilityInf), AddValueList, $(HardParameterKey), $(NewValueList)
  905.  
  906.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  907.                 Debug-Output "ShellCode error."
  908.                 goto ShellCodeError
  909.             endif
  910.  
  911.  
  912.             set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
  913.             set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  914.  
  915.             set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardwareType)},+
  916.                                 {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  917.                                 {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardwareClass)}, +
  918.                                 {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  919.  
  920.             
  921.             Shell  $(UtilityInf), AddValueList, $(HardNetRuleKey), $(NewValueList)
  922.             
  923.             CloseRegKey $(HardNetCardKey)
  924.             CloseRegKey $(HardNetRuleKey)
  925.             CloseRegKey $(HardParameterKey)
  926.             
  927.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  928.                 Debug-Output "ShellCode error."
  929.                 goto ShellCodeError
  930.             endif
  931.         endif
  932.     EndForListDo
  933.  
  934.     goto writeparameters
  935.  
  936. ;
  937. ;   Write Parameters
  938. ;
  939. writeparameters = +
  940.     EndWait
  941.     goto successful
  942.  
  943. ;-----------------------------------------------
  944. ; Binding section
  945. ;-----------------------------------------------
  946. bindingadapter = +
  947.     set Error = "Binding: Not Implemented yet"
  948.     goto fatal
  949.  
  950. ;-----------------------------------------------
  951. ; Removeadapter section
  952. ;-----------------------------------------------
  953. removeadapter = +
  954.     Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  955.         ; Remove Software Component
  956.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  957.             $(ProductSoftwareName)
  958.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  959.             Debug-Output "ShellCode error"
  960.             goto ShellCodeError
  961.         endif
  962.  
  963.         set RegistryErrorIndex = $($R0)
  964.  
  965.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  966.             goto fatalregistry
  967.         endif
  968.     else
  969.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  970.             $(ProductSoftwareName), $(!NTN_RegBase)
  971.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  972.             Debug-Output "ShellCode error"
  973.             goto ShellCodeError
  974.         endif
  975.  
  976.         set RegistryErrorIndex = $($R0)
  977.  
  978.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  979.             goto fatalregistry
  980.         endif
  981.     endif
  982.  
  983.     goto end
  984.  
  985. ;-----------------------------------------------
  986. ; Upgrade Software section
  987. ;-----------------------------------------------
  988.  
  989. UpgradeSoftware = +
  990.     ;
  991.     ; First determine whether we want to do upgrade or update for software
  992.     ; or hardware component. Then we will determine whether the Mode is
  993.     ; update or upgrade.
  994.     ;
  995.     ; If the same version of the product existed in the registry, we do
  996.     ; update. Otherwise, we will do a upgrade
  997.     ;
  998.     Debug-Output "UpgradeSoftware: ProductKeyName= "$(ProductKeyName)
  999.     Debug-Output "UpgradeSoftware: !NTN_RegBase  = "$(!NTN_RegBase)
  1000.  
  1001.     ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  1002.         ; Upgrade software component
  1003.         ;
  1004.         ; see whether the same version exist or not
  1005.         ;
  1006.     ;    Debug-Output "REG_H_LOCAL    = "$(!REG_H_LOCAL)
  1007.         Debug-Output "ProductKeyName = "$(ProductKeyName)
  1008.     ;    Debug-Output "MAXIMUM_ALLOWED= "$(MAXIMUM_ALLOWED)
  1009.         Debug-Output "KeyProduct     = "$(KeyProduct)
  1010.         
  1011.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  1012.  
  1013.         Ifstr $(KeyProduct) != $(KeyNull)
  1014.             GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
  1015.             set Version = *($(VersionInfo), 4)
  1016.  
  1017.             ;
  1018.             ; Update the binaries
  1019.             ;
  1020.             Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
  1021.  
  1022.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1023.                 Debug-Output "ShellCode error"
  1024.                 goto ShellCodeError
  1025.             endif
  1026.  
  1027.             set !UG_Filename = $($R0)
  1028.  
  1029.             ifstr(i) $(!UG_Filename) != ""
  1030.                 install "Install-Update"
  1031.                 ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1032.                     goto fatal
  1033.                 endif
  1034.             endif
  1035.  
  1036.             ; Upgrade the version number
  1037.             ;
  1038.             SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  1039.             SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  1040.  
  1041.             ;
  1042.             ; do nothing for update
  1043.             ;
  1044.             ifint $(Version) != $(ProductVersion)
  1045.                ;
  1046.                ; If the major version number is not the same,
  1047.                ;    then this is a major upgrade. 
  1048.                ;         So Upgrade the product and
  1049.                ;         make other upgrade changes if necessary
  1050.                ;
  1051.             endif
  1052.             CloseRegKey $(KeyProduct)
  1053.         else
  1054.             ;
  1055.             ; Cannot Open software key, goto ERROR
  1056.             ;
  1057.             goto fatalregistry
  1058.         endif
  1059.     else
  1060.         ;
  1061.         ; upgrade/update hardware component
  1062.         ; There is no different between upgrade and update for hardware
  1063.         ; component
  1064.         ;
  1065.         ; 1. Get the Service Name
  1066.         ; 2. Change the NetRule section if necessary
  1067.         ;
  1068.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) +
  1069.               $(MAXIMUM_ALLOWED) NetworkCardKey
  1070.         Ifstr(i) $(NetworkCardKey) != $(KeyNull)
  1071.             ;
  1072.             ; Get Service name
  1073.             ;
  1074.             GetRegValue $(NetworkCardKey),"ServiceName", ServiceNameInfo
  1075.             set ServiceName = *($(ServiceNameInfo), 4)
  1076.  
  1077.             ;
  1078.             ; Change the NetRule if necessary
  1079.             ;
  1080.             OpenRegKey $(NetworkCardKey) "" "NetRules" +
  1081.                 $(MAXIMUM_ALLOWED) NetRuleKey
  1082.             Ifstr(i) $(NetRuleKey) != $(KeyNull)
  1083.                 ;
  1084.                 ; Make the change....
  1085.                 ;
  1086.             else
  1087.                 ;
  1088.                 ; Error, cannot open net rules key
  1089.                 ;
  1090.                 goto fatalregistry
  1091.             endif
  1092.  
  1093.             CloseRegKey $(NetRules)
  1094.             CloseRegKey $(NetworkCardKey)
  1095.         else
  1096.             ;
  1097.             ; Error, cannot open network card key
  1098.             ;
  1099.             goto fatalregistry
  1100.         endif
  1101.         ;
  1102.         ; 3. Change the service section of the hardware. i.e.,
  1103.         ;    ParameterName change, value change, etc.
  1104.         ;
  1105.         OpenRegKey $(!REG_H_LOCAL) "" +
  1106.               $(!NTN_ServiceBase)"\"$(ServiceName) +
  1107.               $(MAXIMUM_ALLOWED) ServiceKey
  1108.  
  1109.         Ifstr(i) $(ServiceKey) != $(KeyNull)
  1110.             ;
  1111.             ; Get the ServiceKey to change the Start value
  1112.             ; or Type value. Or open Parameters key to
  1113.             ; change the hardware parameters if necessary.
  1114.             ;
  1115.             CloseRegKey $(ServiceKey)
  1116.         else
  1117.             ;
  1118.             ; Error, cannot open network card key
  1119.             ;
  1120.             goto fatalregistry
  1121.         endif
  1122.     endif
  1123.  
  1124.     goto end
  1125.     ;
  1126.     ; End of Upgrade Software
  1127.     ;
  1128.  
  1129. ;
  1130. ;  Escape hatches
  1131. ;
  1132. successful = +
  1133.     goto end
  1134.  
  1135. abandon = +
  1136.     ForListDo $(OEM_ABANDON_OPTIONS)
  1137.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  1138.             $(ProductSoftwareName), $($)
  1139.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1140.             Debug-Output "ShellCode error"
  1141.             goto ShellCodeError
  1142.         endif
  1143.  
  1144.         set RegistryErrorIndex = $($R0)
  1145.  
  1146.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1147.             goto fatalregistry
  1148.         endif
  1149.     EndForListDo
  1150.  
  1151.     Ifstr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
  1152.         ; Remove Software Component
  1153.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  1154.             $(ProductSoftwareName), FALSE
  1155.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1156.             Debug-Output "ShellCode error"
  1157.             goto ShellCodeError
  1158.         endif
  1159.  
  1160.         set RegistryErrorIndex = $($R0)
  1161.  
  1162.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1163.             goto fatalregistry
  1164.         endif
  1165.     endif
  1166.  
  1167.     goto end
  1168.  
  1169. ;
  1170. ; warning display
  1171. ;
  1172. warning = +
  1173.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  1174.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1175.         goto ShellCodeError
  1176.     endif
  1177.     ifstr(i) $($R1) == "OK"
  1178.         goto $(to)
  1179.     else-ifstr(i) $($R1) == "CANCEL"
  1180.         goto $(from)
  1181.     else
  1182.         goto "end"
  1183.     endif
  1184. ;
  1185. ; non fatal error display
  1186. ;
  1187. nonfatalinfo = +
  1188.     Set CommonStatus = STATUS_USERCANCEL
  1189.     Set Severity = STATUS
  1190.     goto nonfatalmsg
  1191. nonfatal = +
  1192.     Set Severity = NONFATAL
  1193.     goto nonfatalmsg
  1194. nonfatalmsg = +
  1195.     ifstr(i) $(Error) == ""
  1196.         Set Severity = NONFATAL
  1197.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  1198.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1199.             goto ShellCodeError
  1200.         endif
  1201.         set Error = $($R0)
  1202.     endif
  1203.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  1204.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1205.         goto ShellCodeError
  1206.     endif
  1207.     ifstr(i) $($R1) == "OK"
  1208.         goto $(from)
  1209.     else
  1210.         goto "end"
  1211.     endif
  1212.  
  1213. ;
  1214. ;  Registry is broken
  1215. ;
  1216. fatalregistry = +
  1217.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  1218.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1219.         goto ShellCodeError
  1220.     endif
  1221.     set Error = $($R0)
  1222.     goto fatal
  1223. ;
  1224. ; fatal error display
  1225. ;
  1226. fatal = +
  1227.     ifstr(i) $(Error) == ""
  1228.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  1229.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1230.             goto ShellCodeError
  1231.         endif
  1232.         set Error = $($R0)
  1233.     endif
  1234.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  1235.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1236.         goto ShellCodeError
  1237.     endif
  1238.  
  1239.     goto setfailed
  1240.  
  1241. ;
  1242. ;  Shelling error
  1243. ;
  1244. ShellCodeError = +
  1245.     set DlgType      = "MessageBox"
  1246.     set STF_MB_TITLE = $(ShellCodeErrorTitle)
  1247.     set STF_MB_TEXT  = $(ShellCodeErrorText)
  1248.     set STF_MB_TYPE  = 1
  1249.     set STF_MB_ICON  = 3
  1250.     set STF_MB_DEF   = 1
  1251.     ui start "Error Message"
  1252.     goto setfailed
  1253.  
  1254. setfailed = +
  1255.     set CommonStatus = STATUS_FAILED
  1256.     ;
  1257.     ; if OEM_ABANDON_ON == TRUE, then remove the registry entries
  1258.     ;
  1259.     ifstr(i) $(OEM_ABANDON_ON) == TRUE
  1260.         set OEM_ABANDON_ON = FALSE
  1261.         goto abandon
  1262.     endif
  1263.     goto end
  1264.  
  1265. end = +
  1266.     goto term
  1267.  
  1268. term = +
  1269.  
  1270.     Return $(CommonStatus)
  1271.  
  1272.  
  1273. ;***************************************************************
  1274. ;  INSTALL SECTIONS
  1275. ;***************************************************************
  1276. [Install-Option]
  1277.     Debug-Output "Starting Install-Option"
  1278.     Debug-Output "AddCopy= "$(AddCopy)
  1279.     Debug-Output "DoCopy= "$(DoCopy)
  1280.     Debug-Output "Option= "$(Option)
  1281.     Debug-Output "Files-$(Option)= "Files-$(Option)
  1282.     Debug-Output "SrcDir= "$(SrcDir)
  1283.     Debug-Output "!STF_WINDOWSSYSPATH= "$(!STF_WINDOWSSYSPATH)
  1284.  
  1285.     set STF_VITAL = ""
  1286.  
  1287.     ifstr(i) $(AddCopy) == "YES"
  1288.         Debug-Output "Install-Option: AddCopy=YES"
  1289.  
  1290.         ;
  1291.         ; Add the files to the copy list
  1292.         ;
  1293.         AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1294.         AddSectionFilesToCopyList Files-HLP $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1295.  
  1296.     endif
  1297.  
  1298.     ifstr(i) $(DoCopy) == "YES"
  1299.         Debug-Output "Install-Option: DoCopy=YES"
  1300.  
  1301.        ;
  1302.        ; Copy files in the copy list
  1303.        ;
  1304.        set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1305.        CopyFilesInCopyList
  1306.  
  1307.     endif
  1308.  
  1309.  
  1310.  
  1311.     ifstr(i) $(DoConfig) == "YES"
  1312.         Debug-Output "Install-Option: DoConfig=YES"
  1313.  
  1314.        ;
  1315.        ; Config if needed 
  1316.        ;
  1317.  
  1318.     endif
  1319.  
  1320.  
  1321.     Debug-Output "Install-Option: Preparing to Exit"
  1322.  
  1323.     Exit
  1324.  
  1325. [Install-Update]
  1326.     Debug-Output "Starting Install-Update"
  1327.     Debug-Output "Option= "$(Option)
  1328.     Debug-Output "SrcDir= "$(SrcDir)
  1329.     Debug-Output "!STF_WINDOWSSYSPATH "$(!STF_WINDOWSSYSPATH)
  1330.  
  1331.    set STF_VITAL        = ""
  1332.    set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  1333.  
  1334. ;
  1335. ; see line below,  a comment??
  1336. ;
  1337.    ;set STF_VERSION     = "YES"
  1338.    ;set STF_VERSION     = "YES"
  1339.  
  1340.    AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1341.    AddSectionFilesToCopyList Files-HLP $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1342.    AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1343.  
  1344.    set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1345.    CopyFilesInCopyList
  1346.  
  1347.    Exit
  1348.  
  1349.  
  1350.  
  1351.